home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Accelerator 10
/
HOMEWRLD.bin
/
BEHAV.CXT
/
00009_Script_Research Arrow
< prev
next >
Wrap
Text File
|
1999-03-23
|
2KB
|
65 lines
property scrollDirection
property mySpeed
property myTop
property myTopLimit
property myBottomLimit
global gTextSprite
on beginSprite me
-- set myTop = the scrollTop of member (the member of sprite gtextSprite)
end
on mouseEnter Me
--gives the hand cursor
-- cursor [100,101]
end
on mouseLeave me
--restors the cursor
-- cursor 0
end
on mouseDown me
put the scrollTop of member (the member of sprite gtextSprite) into mytop
case (scrollDirection) of
#Up:
repeat while the stilldown
if mytop > myBottomLimit then EXIT
sendSprite(gtextSprite,#enterFrame)
set the scrolltop of member (the member of sprite gtextSprite) to myTop + mySpeed
updateStage
put the scrollTop of member (the member of sprite gtextSprite) into mytop
end repeat
#Down:
repeat while the stilldown
if mytop < myTopLimit then EXIT
sendSprite(gtextSprite,#enterFrame)
set the scrolltop of member (the member of sprite gtextSprite) to myTop - mySpeed
updateStage
put the scrollTop of member (the member of sprite gtextSprite) into mytop
end repeat
end case
end
on getPropertyDescriptionList
set p_list = [#scrollDirection: [ #comment:"Direction:",#format: #symbol,#range:[#Up,#Down], #default: #Up ],#mySpeed: [ #comment:"Speed of Scroll:",#format: #integer, #default: 3 ], #mytopLimit: [ #comment:"TopLimit:", #format: #integer, #default: 1 ], #mybottomLimit: [ #comment:"Bottom Limit:",#format: #integer, #default: 1 ] ]
return p_list
end